home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / batch / MiniMen.lha / MiniMen / MultiDX.1 < prev    next >
AmigaDOS Script File  |  2000-03-02  |  3KB  |  117 lines
  1. .key fname
  2. echo >env:arcmode none
  3.  
  4. search >nil: env:FPAK .LHA
  5. if not warn 
  6.    echo >env:arcmode .LHA
  7. endif
  8. search >nil: env:FPAK .LZX
  9. if not warn 
  10.    echo >env:arcmode .LZX
  11. endif
  12. search >nil: env:FPAK .ZIP
  13. if not warn 
  14.    echo >env:arcmode .ZIP
  15. endif
  16. search >nil: env:FPAK .LZH
  17. if not warn 
  18.    echo >env:arcmode .LZH
  19. endif
  20. search >nil: env:FPAK .ARJ
  21. if not warn 
  22.    echo >env:arcmode .ARJ
  23. endif
  24.  
  25. if $arcmode not eq none
  26.    Requestfile >env:dest TITLE="Choose destination to UnPack" DRAWER "RAM:" DRAWERSONLY
  27.    if warn
  28.       echo "*N Operation canceled....!"
  29.       skip end
  30.    endif
  31.    if $arcmode eq .LHA
  32.       Lha x -V "<fname>" $dest
  33.    endif
  34.    if $arcmode eq .LZX
  35.       LZX x "<fname>" $dest
  36.    endif
  37.    if $arcmode eq .ZIP
  38.       UNZIP "<fname>" -d $dest
  39.    endif
  40.    if $arcmode eq .LZH
  41.       Lha x "<fname>" $dest
  42.    endif
  43.    if $arcmode eq .ARJ
  44.       unarj x "<fname>" $dest
  45.    endif
  46.    skip end
  47. endif
  48.  
  49. search >nil: env:FPAK .DMP
  50. if not warn 
  51.    echo >env:arcmode .DMP
  52. endif
  53. search >nil: env:FPAK .DEX
  54. if not warn 
  55.    echo >env:arcmode .DEX
  56. endif
  57. search >nil: env:FPAK .DMS
  58. if not warn 
  59.    echo >env:arcmode .DMS
  60. endif
  61. search >nil: env:FPAK .ADF
  62. if not warn 
  63.    echo >env:arcmode .ADF
  64. endif
  65. search >nil: env:FPAK .ADZ
  66. if not warn 
  67.    echo >env:arcmode .ADZ
  68. endif
  69. search >nil: env:FPAK .PKD
  70. if not warn 
  71.    echo >env:arcmode .PKD
  72. endif
  73.  
  74. if $arcmode eq none
  75.    echo "*N Archive extension not found or recognised...!"
  76. else
  77.    MiniMen drives
  78.    if exists env:minmen
  79.       assign >nil: exists $MinMen:
  80.       if warn
  81.          if exists sys:storage/dosdrivers/$MinMen
  82.             mount >nil: sys:storage/dosdrivers/$MinMen
  83.          else
  84.             echo "*N Device driver not found....!"
  85.             skip end
  86.          endif
  87.       endif
  88.       if $arcmode eq .DMP
  89.          dimp WRITE "<fname>" $MinMen:
  90.       endif
  91.       if $arcmode eq .DEX
  92.          "<fname>" $MinMen:
  93.       endif
  94.       if $arcmode eq .DMS
  95.          if $MinMen EQ "PC0"
  96.             undms "<fname>" to $MinMen: PC VERIFY
  97.          else
  98.             undms "<fname>" to $MinMen: VERIFY
  99.          endif    
  100.       endif
  101.       if $arcmode eq .ADF
  102.          TransADF DRIVE $MinMen: FILE "<fname>" WRITE NAME #? VERIFY FORMAT
  103.       endif
  104.       if $arcmode eq .ADZ
  105.          TransADF DRIVE $MinMen: FILE "<fname>" WRITE NAME #? VERIFY FORMAT
  106.       endif
  107.       if $arcmode eq .PKD
  108.          PackDev ETDF "<fname>" $MinMen:
  109.       endif
  110.    else
  111.       echo "*N Operation canceled...!"
  112.    endif
  113. endif
  114.  
  115. lab end
  116. delete >nil: env:MinMen env:FPAK env:arcmode env:dest
  117.